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ioe 1 © MODULE TBKSYM ( IDENT = ‘V04-000' ) = 

: § § BEGIN 

ae ' 

3 5 5 ahhh chelate hninlahchedlalebalaleiaiabaiala baled 
8 if ® 
; 0 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
is = 0 8 ie DIGITAL FQuiPHENT ¢ EORPORATION, MAYNARD, MASSACHUSETTS. * 
; 3 90 is ALL RIGHTS RESERVED. x 
Py 2 & 
.S a 19 ie THIS SOF TWARE 1S FURNI SHED UNDER A LICENSE AND MAY BE USED | AND COPIED * 
; Ig i ie ONLY if CCORD DANCE WITH THE TERMS OF SUCH LICENSE D WITH THE * 
sa 1 ie NCL Tow” oF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE on ANY OTHER * 
; 14 1 is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:) 15 ie PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 Bat$ - PRANSFERREOY . 
: #18 18 iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 7 
: 19 1 it AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 9 ie CORPORATION. . 
3 ‘® w 
; i ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 33 ix SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 4 
P ; we 
— 1 

. 3 locadincnseeseeententnesnesnnernsiaesbaeniaeniiebneneieniobidaaeeinaienian 


'e+ 
! FACILITY: 
; TRACEBACK 


' ABSTRACT: 
! This module feh actu all routines used by 

ch ectugt ty look at the DST. 
These routines in ‘ ace to reality via 
those in TBKINT.B 


i Version 1.0 


i ENVIRONMENT : 
: This module runs on VAX under VAX/VMS, user mode, non-AST Level. 
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Kevin Pammett, Creation Date: 18-jan-78. 
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' 
; Author: 
i 
' 
' 
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' 
' 
' 
' 
' 
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48 Dale Roedger, 4 November 197 
4 Ping Sager, 0 August 198 
: i Revision History: 
5 i 02 24-feb-78 KGP ~EXC_TYPE hes. te to be an OWN so that 
4 _we Gniy i n lias t once. 
5 03 28-F EB-78 KGP -SYMBOLIZE is nov truty NOVALUE ong 
§ t works OK if the dst ye st. 


04 2-mar-78 KGP ~Beginning ST, type for 


F 5 
vot=b00 1e733b-4982 98:35:98 NES SiwhASfeRsctRace Shcarexsym.es20;%" 15 
FIN P 5 gycreterton 7 is now decided 


in ens $s no Longer Local to ap 
“We reject a symbolizat 7 vor ” ch 
. pd e PC == absolute 


vw 


1! 
' @ 1 
: 60 1! 
. 1! 
a 1! pxate .. iter value is O° 
roe 1! 83 rants KGP one RE eeyere oF E NAMES 
~ @ 4 1! 6 O-mar-78 KGP now. oe. about end-of-RTN 
; 65 . os “ener a and yoes tf this to know about 
. = 68 1! the Length o TINES. 
; § 067 1! 07 14-mar-78 KGP “Call to PC 510 gh ihe now has 
; & 068 1! one ess paramete 
3 4 1! 08 26-APR-78 DAR Modif eg require and library directives 
3 1! for native build. 
ae. 2B f 09 15-JUN-7 DAR Changed all DBG “symbols to TBKS$. 
are te 1! 1.01 09-NOV-7 DAR Added new DST types _EPT and R1i, 
ee 075 1! and modified output for COBOL 
Bae eS 074 1! 1.08 3-NOV-79 JBD Added statement number supper’. 
: 75 075 1:! 1.03 14- a JBD Added nested routine aeeer 
; B78 1! 1.04 28-Jan-80 JBD Fixed some nesting prob ay “was corrupting 
.. iF 077 1! the best routine. 
. - 7 078 1! 4.0 30-Aug-83 PS Prefer routine to psect be the best value, 
3 ies 344 : } if there is routine begin 
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' Table of contents: 


FORWARD ROUTINE 
TBKSSYMBOLIZE : NOVALUE; 


INCLUDE FILES: 
REQUIRE 'SRC$:TBKPROLOG.REQ'; 


EXTERNAL ROUTINE 
TBKSFAO_OUT: NOVALUE; 


MACROS: 


EQUATED SYMBOLS: 
LITERAL 


ANY = g. ! Turn on if any diagnostics are on. 
TBK_SYM1 = Q, : spect Tis output in TBKSSYMBOLIZE 
TBK_SYM = B. ' List DSTs in TBKSSYMBOLIZE 
TBK_SYM = 0; ! How to symbolize. 
LITERAL 


MAX_NEST_DEPTH = 100; ! Maximum number of nested routines to 
! reliably traceback. 
ZIF TBK_ANY 
THEN 


FORWARD ROUTINE 
PR_CS : NOVALUE; ' Routine to print diagnostics during 
! debug of traceback 


ccccr 


RFI 


tt at ad td td td ed md IB HOODOO OOOOOOOOOOOOO 


' 
OWN STORAGE: 


oOo OOOO 00000009 09 69 69 09 09 09 SIN NI NINN NN IO OA AAO OO 


i] 

; EXTERNAL REFERENCES: 

EXTERNAL ROUTINE 
tbk$ FORTRAN PC-to-Line_number correlation. 

Make a certain DST record available. 

Make the next DST record available. 


Bete Ge Se Se Se Se Ge Se Ge Se Be Fe Se Se Ss Ge Ge Ge Ge Fe Fe Ge Se Fe Fe Ge Ge Ss Ge FH Se Ss Se Ge SF Se Ge Ge Se Ge Se Se Se Se Sse Ge Se Ge Ge Se Se Se Se Se Seas 
er rr er rd 


ee ee ce me me me ee ee a ee ed ed 2 wd od = so = 


oo 
Ow 
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tbk$posTton_dst; Make a certain DST record available 
and set up for tbk$get_nxt_dst 
EXTERNAL 
TBKSGL_EXC_TYPE, ! Initial FAULT/TRAP type for PC 
' correlation. 
TBKSMODULE_CS : CS_POINTER 
TBKSROUTINE_CS : CS_POINTER, 


Seee Ge ee Se 


SS) 


HS 

1eageen TSBs PGi3R 98 dS ER ec YRae Secarexsvm.e3s2nh@* «2s 
saa 
TBKSREC PC, 


TBKSMODULE_DST : REF DSTSRECORD; 
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GLOBAL ROUTINE tbk$symbolize(value) : NOVALUE = 


'e¢ 
Functional Specification: 


Sivan a (supposed) PC value, look thru t 


he 
entire DST (of TBT records only) and find the best 
possible symbolization for it. 


Routine Value: 
NOVALUE 
Side Effects: 


The entire DST is scanned. 


i 
i 
i 
i 
1 
i 
i 
i 
i 
i 
! GLOBAL variables are used for communication with 


} other traceback routines. 
VALUE, 
DST : REF DSTSRECORD, 
_REC_{b, 
ST-RECRD : REF DSTSRECORD 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 . 
BEGIN 
LOCAL 
RTN_RCD, ! Type of last routine record 
CURRENT. RTN : REF DSTSRECORD, 
DUCE : REF DSTSRECORD, 
“DST _TYPE, 
ST“MODOLE : REF DSTSRECORD, 

NT 

pst 

RTN-NEST_VECTOR : VECTORLMAX_NEST_DEPTH), 

RTN-NESTING; 


Z1F TBK_SYM3 
ZTHEN 
_ SFAO_TT_OUT("symbolize !XL as ‘,.value); 
! Assume that no symbolization can be found. 
! Also, explicitly remove all previous 
! symbolizations so that what is left set after 
! this one definately referrs to this symbolization. 


EST_MODULE = 0; 


B 
BEST_VALUE = 0; 


T cs 
TBKSROUTINE CS = 0; 
TBKSGL_STMT™= TBKSGL_LINE = 0; 
TBKSREC_PC = .VALUE; 
TBKSMODOLE_DST = 0; 
! Position the DST to the beginning. 
1F ¢ NOT TBKS$POSITON_DST(O) ) 


RETURN; 


TBKSYM 


v04-000 


g 
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RTN_NESTING = 0: 
RTN-NEST_VECTORL.RTN_NESTING] = 0; 
WHILE ( (DST _RECRD = TBKSGET_NXT_DST( DST_REC_ID )) NEQ 0 ) 
BEGIN 
! Process each record depending on its DST type. 


47 
47 
47 
47 
475 
tf8 
iH 
47 
b Suet § Hhenee8m 
: r ¢ ! For diagnostic purposes we List out the entire record. 
U 0484 IF( .DST_RECRDCdst$b_type] EQL dst$k_modbeg) 
U 0485 THEN 
U 04 § BEGIN 
U 04 SFAO_TT_OUT('MC for module '); 
¥ ret) pr_cs(dst_recrd(dst$b_name)); 
end; 
U 0490 SFAO_TT_OUT( "DST Rec Id=!XL, is at !XL, for !UD bytes. 
7 491 -DST_REC_ID, .DST_RECRD, .DST_RECRDCdst$b_lengthd ); 
4 438 ! Dump the record in bytes. 
: rh INCR I FROM 0 TO .DST_RECRDCdst$b_length] 
43 SFAO_TT_OUT('!XB °,.DST_RECRDC .1, 0, 8, 0] ); 
sg fa 
B20) CASE .DST_RECRDCdst$b_type] FROM dst$k_lowest TO dst$k_highest OF 
8 SET 
302 Cdst$k_modbeg): ! Module Begin Record. 
209 4 BEGIN 
508 4 IN_MODULE = .DST_RECRD; 
208 ENB; 
31) Cdst$k_modend): ! Module End Record. 
218 f BEGIN 
514 IN_MODULE = 0; 
a2 END; 
31% Cdst$k_rtnbeg): ! Routine DSTs. 
319 BEG! 
9 4 LOCAL ; 
3 2 RBEGIN; ! Address where routine begins. 
5 j & RTN_RCD = .DST_RECROCdst$b_type); 
504 4 CURRENT_RTN = <DST_RECRD; 
3 5 4 RBEGIN = .DST RECROCdst$l_value); 
3 6 4 LF RTNLNESTIRG LSS MAX_NEST_DEPTH 


ccc 


cccccr 
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BEGIN ! Push ine. 
XIF TBK_SYM1 XTHEN on eave Teen 
$FAO_TT_OUT (Pushing routine XL", .current_rtn); 
ofl SFAO_TT_OUT(* index: !SL', .rtn_nesting);~ 
RTN_NEST_VECTORC.RIN NESTING? = .CURRENT_RIN; 
RTN_NESTING = .RTN_ NEST STING + 


In macro there is no routine end record, so, we need to record 
the best value at this point as well. 


If .RBEGIN LEQA .VALUE 
THEN 


BEGIN 

IF (,BEST VALUE 
(C.VALOE = . 
CIVALUE e 


MODULE = .IN MODULE; 
ALUE = .RBEGIN 

“DST = 5URnEN TRIN 

ST_TYP eNST RREERDCDSTSB_ TYPE); 


TBK_SYM1 
N 


ee Re 
— 
x=" 
Mm 


$FAO_TT_OUT( ‘routine begins: 'XL",.RBEGIN); 
$FAO-TT-OUT("best value: !XL', .BEST VALUE) ; 
$FAO_TT_OUT('best dst: iXL', -BEST_D 
$FAO_TT_OUT('best dst type: XL", “BEST DST_TYPE); 


rata a) 4h 4b tb db 4b 4d A hetbabdh Ahab Ah ah Al ab ab ab ab al al ahve al alalval tal ealealealea eww ww WwW 
SIDED DDD DDD DD I ES BS BB BB BBE PANINI Ir 


XFI 

6 END; 
Cdst$k_lblorlit, ' Label or Literal 
dst$k_label, ' Labels. 
dst Keentry. ! Entry point records. 
qs tek} inen ' delta-PC table 
dst$k_Line nua “rel Bair ' Thread / tire correlation tables. 
dst$k “bLiita ! FIELD records. 


: ! These records are not used in TRACEBACK. 
Césték rtnend): End of Routine 


! When we hit an end-of-routine tpcers. we check the 
i start and endin opgrepees. oj he rout tine a 
' top of hd stac S within hy h ., Bamey 
Pim th 


i ed 


WPI =O OOO NA UVES WIN 2 9 OD NOAM E WIN 9 ODNOA UE WN O ODNOAU EWN OC ODNOU ES WR 0O00 


s is the routine we want. 
RBEGIN; ! Address where routine begins 
! Note that the current routine is always the top of 


yoy oY oy oy oY oY oY ot ol’, Ye ee ee oe or rt et et et et et el 4d ool ee ee | ate te ad ah Ald dl ddd ddl dl ddl dl dla 
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3 1 5 4 ! the stack. 
: 1 8 4 CURRENT_RTN = ,RTN_NE LVEF FORE -RINNESTING - 1); 
a | 4 RBEGIN = .CURRENT_RINCdSt$l_valuel; 
; 1 U 4 ZIF TBK_SYM1 %THEN 
: U 4 IF( ,CURRENT_RTN NEQ 0 ) 
; 1 U 4 THEN 
; § U 0591 4 SFAO_TT_OUT('routine ends at !XL', 
; ? , 3 ; -dst_recrd(dst$l_value] + 
; -current_rtnCdst$l_value)); 
5 U 0594 4 Cdst$l_value)) 
3 $ 336 ? XFI 
: 328 97 & 
; 9 598 4 ! Now see if this routine contains the PC (.VALUE) 
; 0 599 4 IF .value LEQA .RBEGIN + .dst_recrdldst$l_value 
$ 1 ret 2 oe LEQA .VALUE 
3 : ote BEGIN ! This routine contains the PC. Mark it. 
3 60 best_module = .IN_ MODULE; 
3 5 604 best_value = .RBEGIN; 
; 336 9605 best-dst = .CURRENT_RTN; 
; 337 L 606 X1F TBK_SYM1 
; 8 U 060 ZTHEN 
$ S39 U 0608 $FAO_TT_OUT('routine begins: !XL',.RBEGIN); 
; 340 U 0609 SFAO-TT-OUT("best value: !XL', .BEST VALUE); 
: 41 U 0610 SFAO_TT_OUT(‘best dst: !XL', .BEST_ : 
; 4@ U aol ae SFAO_TTOUT('best dst type: !XL", [BEST _DST_TYPE); 
: 344 $18 5 EXITLOOP; 
Bo RNY - 
; 347 16 4 
; 348 eis 4 ' If we got this far, then the PC is not within the 
; 349 18 4 ' current routine. So we POP the routine from the 
3 50 619 4&4 ! stack. 
; 31 6 9 4 IF RIN_NESTING GTR 0 
; 2¢ § BEGIN ! ee the lest routine 
: 54 6 RTN_NESTING = .RTN_NESTING -_1; 
3 2 ° : RTN_NEST_VECTORC.RTN_NESTING) = 0; 
: A] 6 CURRENT_RTN = ,RTN_NEST_VECTORC.RTN_NESTING); 
; 358 6 BEST MODULE = 6; 
3 59 6 8 BEST_VALUE = 0; 
3 60 BEST_DST = 0; 
; 361 9 BEST“DST_TYPE = 0; 
: § U 06 SIF TBK_SYM1 XTHEN 
; 2 U § SFAD_TT OUTS (Popped to routine !XL', .CURRENT_RTN); 
: U SFAO-TT“OUT(" index !SL', .RTN_NESTING); 
: 5 4 rFI 
3 r4] 5 ? END; 
: os 6 $ RTN_RCD = .DST_RECRDCdst$b_type); 
3 H 6 3 END; 
: 371 Cdst$k_psect): ! Psect DSTs. 
: 72 A 4 BEGIN 


IF ¢ i PREein LEQA .VALUE) 
(.PEND GEQA .VALUE) 
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73 4 LOCAL 

74 ei$ PBEGIN, 

75 4& : 

8 645 N 

7 oe8 PSECT_LENGTH 

4 64 = ! Pick up the field length, which 

7 28 ! is after the NAME so must be 

5 208 ! dynamically located. 

ag re (.DST RECRDEGstSb_nane ! The symbol-name count, 

8 $26 + DST_RECRDLdst$b_name] ! plus its address, 

Be 634 + 1)>: LONG; ! addresses the LENGTH. 

58 655 PBEGIN = .DST_RECRDCdst$l_valuel; 

8 p28 PEND = .DST_RECRDCdst$l_value] + .PSECT_LENGTH +1; 

88 L $2 Z1F TBK_SYM1 

8 U 06 8 XTHEN 

9 U 065 $FAO_TT_OUT('PSECT begins: 'XL, ends !XL', 

9 U 0660 -PBEGIN,.PEND); 

9 661 2F1 

9 066 

9 66 

9 64 

96 65 

97 

98 

99 

00 
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(.pbegin GTRA 0 ) 
r$] , pbeg 
68 THEN 
4 69 ! Adopt the new one only if it is 
401 ty ! better than a previous match. 
40 Le: IF( .PBEGIN GEQA .BEST_VALUE ) AND 
404 7 ( .BEST_DST_TYPE NEQ DST$K_RTNBEG ) 
rh “ sande BEGIN 
407 067 
rts} beoe ! This P-sect is better so adopt it. 
410 679 BEST_MODULE = .IN_MODULE; 
411 680 BEST-VALUE = .PBEGIN; 
aig 681 BEST=DST = .DST_RECRO; 
414 U eas ZIF TBK_SYM1 XTHEN r 
415 SFAO_TT_OUT(‘best value !XL', .best_value); 
$1g U HF SFAO_TT_OUT("best dst !XL", .best_dst); 
a Sa gH ew: 
419 : 
a: ait 
4 § 691 5 ! Other types of records get ignored 
? ? O36 END; 
? 5 O88 COUTRANGE): 
é 5 O76 BEGIN 
4 } 698 ! The only reason for not making the ‘SRM types" 
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! part of the above CASE is because of the huge 

! case table which gets generated otherwise. 

fi, OST MECROLAStSb. typed EQL DSCS$K_DTYPE_2Z ) 
BEGIN 


' BLISS type ZERO records. 

! Whatever symbol this is, it contributes 
i a name, for sure, and either a literal 
! or a static. We assume the worst! 


NT COUNT = .NT_COUNT +1; 
END 


-DST_RECRDCdst$b_type] GEQ dsc$k_dtype_lowest) 
BEGIN 


S 
( DST _RECROCEStSb. type? LEQ dsc$k_dtype_highest) 
( 
E 
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! These types are candidates for 
! the LVT and NT tables only. 


NT_COUNT = .NT_COUNT +1; 
ENB; 
END; 
TES; 
! Go back and process the next DST record. 
END; 
_SYM3 
a ~BEST_MODULE NEQ 0 ) 

SFAO_TT_OUT(* module !AC, symbol !AC, + !XL', 
best module gst8d_ngned. 
best_dstldst$b_name 
value - .best~valued 

SFAO_TT_OUT(‘teeee'); 

! Pass back info via the TBK globals. 


IF( ,BEST_MODULE NEQ 0 ) 
THEN 


ELSE 


BEGIN 
TEKSMODULE _DST = .BEST_MODULE; 


i Try to translate this PC into its 
corresponding line number. 


if NOT TBKSPC_TO_LINE (.VALUE, .BEST_DST, ; TEKS L 
THEN ! Make sure We don't print a mean 


TBKSGL_LINE, TBKSGL_STMT) 


V0 000 1fse Boot eee Pei e ee Nak UnGAASTERccYRACE SkcaTexsym.as203% <4} 


: 7 4 TBKSGL_STMT = tbk$gl_line = 0; ! Line number Later on. 
° 9 f TBKSMODULE_CS = BEST_MODULECdst$b_name); 

49) 7 TOKSROUT INE CS = BEST_DSTCdst$b_name); 

49 ey BKSREL_PC = .VALUE -".BEST_VALOE; 

4&9 166 END: 

298 ei RETURN ! Th L d via global 

rhe pee ; ! The values are returned via globals. 


INFO#25 L1:0711 
Referenced LOCAL symbol NT. ya is probably not initialized 


L 
veserso ed LOCAL symbol IN. "0D LE is probably not initialized 
vererensed LOCAL symbol IN. =f00 LE is probably not initialized 
Referenced LOCAL symbol IN_MODULE is probably not initialized 


T TBKSYM 
ENT \v04-000\ 
ba TBKSFAO_OUT, og XSPEC. TO_LINE 


»PSECT TBKSCODE, NOWRT, SHR, “PIC, 0 


OFFC 00000 ENTRY rng Save R2,R3,R4,R5,R6,R7,R8,- 3 0414 
SE FE64 MOVAB RPLSUSP F 
CLRQ ~—- BEST VALUES : 0457 
CLAL CURRENT RTN : 0459 
0 96 CLRL TBKSMODOLE CS : 0460 
6 CLRL  TBKS$ROUTINE CS + 0461 
06 CLRL _TBKSGL_LINE : 0462 
06 CLRL =‘ TBKSGLSTMT ; 
36 MOVL VALUE R6 + 0463 
000000006 MOVL  R6, TOKSREL_PC ; 
000000006 CLRL §_ TBKSMODULE_BST + 0464 
CLRO = = ( SP) : 0468 
000000006 00 CALLS a. - TBKSPOSITON_DST ; 
BLBS : 
RET ; 
CLRL  RTN_NESTING : 047 
10 AE CLRL RT N “NEST VECTORERTN.. NESTING > 047 
0c PUSHAB DST REC_ID : 047 
000000006 00 CALLS #1, TBKSGET_NXT_DST ; 
TSTL f_RECRD ; 
BNEQ : 
BRW 3 ; 
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‘ 
TBKSYM Ib-se -1984 02:18: VAX-11 Bliss-32 V4.0-742 Page 13 
v04=000 1 ~3007 138% 96:38:98 SI EKSVMGMASTERSCYRACE. SACITBKSYM.B32"4° ny 
] 1 oc BGE 13$ ; 
10 AE42 D D MOVL CURRENT RTN, RTN_NEST_VECTORCRIN_NESTING] 533 
: D E INCL RTN_NESTING : 05 
56 ; E CMPL SRR CIN, R6 + 0540 
6 A OO0E BGTRU ; 
p EA TSTL ST_VALUE + 0543 
EC BEQL ; 
54 4 C E SUBL 3 BEST VALUE, Rs, R4 + 0544 
1 é ¢ F SUBL3 RBEGIN, R6, R + 0545 
1 4 01 O00F CMPL Re F 
4a 1 F BLSS —-138 : 
A D FB 9S MOVL IN MODULE BEST MODULE F 548 
9 D FE MOV RBEGIN, BEST_VACUE + 054 
B DO 001 MOVL § CURRENT_RTN, BEST_DST : 0550 
bE 3 pd 001 MOVL  R3, BEST_DST_TYPE + 0551 
9 11 00107 BRB 16$ + 0501 
57 0 AEKe 06 109 10$:  MOVL  RTN_NEST_VECTOR-4CRTN_NESTING], CURRENT_RTN : 05 
5 A? 00 001 MOVL 3(CORRENT RTN), RBEGIN : 058 
51 55 03 ad C1 0011 ADDL3 3(DST_RECRD), RBEGIN, R1 : 0599 
5} 56 D1 0011 CMPL = RG, RT ; 
19 1A OO11A BGTRU 118 ; 
56 55 pi OO11C CMPL RBEGIN, R6 + 0600 
1A OO11F BGTRU 11 ; 
SA dO 00121 MOVL IN MODULE, BEST_MODULE + 0603 
59 DO 00124 MOVL §RBEGIN, BEST_VACUE > 0604 
58 3 DO 00127 MOVL CURRENT RTN, BEST_DST ; 0605 
9 11 OO12A BRB 17$ F 608 
52 D5 O012C 11$:  TSTL RTN_NESTING F 
11 15 001 BLEG =-_:- 128 : 
52 07 001 DECL | RTN_NESTING ; 96 3 
19 AE4S D4 001 CLRL -RTNTNEST_VECTOR RIN NESTING] > 0624 
57 10 AE4 bd 1 MOVL § RTNTNEST~VECTORCRIN-NESTING], CURRENT_RTN : 0626 
5 C 001 CLRQ  BEST_VALO ; 0628 
5B D4 00130 CLRL = BESTDST + 0629 
: D4 0013F CLRL BEST “DST_TYPE ; 9 
08 AE 00 141 13s: VL R3, RTN_RCD ; 06 
1 143 13$: BRB 6$ ; 0501 
53 07 A 3 147 14$: ( ST_RECRD) R3 : 0651 
3] 63 9A 00148 MOVZBL (R3),"R ; 
© 3 A p0 0014 VL (ost RE RD), PBEGIN : 0655 
1 A341 9F 001 PUSHAB 1(R3)CR : 0656 
51 03 a0 9 C1 001 ADDLS a(SP)+, 3(DST_RECRD), R1 ; 
D6 00158 INCL PEND ; 
56 3 p 001 CMPL GIN, R6 > 0662 
A 00160 158: BGTRU : 
56 1 pI 001 MPL PEND, R6 + 0664 
18 1F 001 BLSSU 16 : 
5 b 001 TSTL GIN + 0666 
1 00169 BEQL ; 
59 35 ¢ 001 CMPL PREGIN, BEST_VALUE : 0672 
12 1F 001 BLSSU 1 : 
000000BE 8F ° 001 CRPL b $T_DST_TYPE, #190 ; 0673 
A pd 001 MOVL IN MODULE, BEST_MODULE : 0679 
9 dO 0017¢ MOVL PBEGIN, BEST VACUE > 06 
K ¥ 17F MOVL BST _RECRD, BEST_DST : 06 1 
FEC 82 16$: BRW : 0501 


TBKSHH, r$eseo-t98e 02:18:08 WAKCHI BLtasesZ We.0c742 | Page 14 


Sa : 185 17%:  TSTL BEST. MODULE ; 0746 
8 1 BEQL 
000000006 00 A 1 MOVL _—- BEST_MOD LE. TBKSMODULE _DST 749 
6 F 001 PUSHAB TBKSGL_STMT 754 
6 F 001 PUSHAB tee er INE : 
G DD 001 PUSH XC TYPE : 
F BB OOIA PUSH “R11S : 
000000006 00 Fe 1A CALLS i aaa TO_LINE ; 
E Ap BLBS : F 
settee D4 001B CLRL § TBKSGL_LINE t 0756 
4 00186 CLRL BK$ Lista ; 
990000006 AA 186 18$ MOVAB 7(R10)7 T $HODULE : 075 
G Ag iC MOV (R11) TBRSROU it es ; 7 
000000006 00 5 f 1€C SUBL3 BEST_VALUE, R6, TBKSREL_PC 761 
4 00104 19$: _—sRET 765 


; Routine Size: 469 bytes, Routine Base: TBKS$CODE + 0000 


F 6 
eageen18Ee 9G: se ee Wee edwBAAS PER cYRaCe Secarexsym.es20%%° cdi 


versye 

-000 

: 49 L 0766 1 XIF TBK_ANY 

; £99 U re 1 THEN 

; : f ! ! This routine is only used by DEBUGging output routines. 
; § rt ’ ROUTINE PR_CS( ADDR ) : NOVALUE = 

> 504 U ak 1 

; 5 U 07 1 !¢¢ 

; U 07 2 1} Functional Description: 

; U 07 1! Print out a counted string in an 

: , 7? : unambiguous way for debugging purposes. 

3 3Y U a 1 

3 3) U 0779 1 BEGIN 

3 \§ uU 0780 1 

. u 0781 1 ADDR « REF VECTORC,BYTE); 

; #514 U 07 ¢ 1 

; 515 U 07 1 ! Don't get fooled! 

3 18 U 0784 1 

; 1 u 0785 1 IF( .ADDR EQL O ) 

: 218 U 07 1 TH 

; 51 U 0787 1 SFAO_TT_OUT( "eee PR_CS AT 0 eeee ' ) 
3 : 0 U A « 1 ELSE 

3 1 U 3? 9 1 SFAO_TT_OUT( ‘Name(!UB.): "‘!AC’’. ° , .ADDRCOJ, ADDRIO] ); 
3 ¢ U 0790 1 END; 

; u 0791 #1 

3 4 0792 1 &FI 


1,0 Used: 188 pages 
Compilation Complete 


TBKSYM bse Sep-1984 VAX-11 Bliss-32 V4.0-742 
v04-000 i 900-1388 9 38: 98 DISKSVMSMASTER: CTRACE.SRC 
3 793 1 END ‘End of module 

i 358 B782 } ELDON 

; PSECT SUMMARY 

; Name Bytes Attributes 

: TBKSCODE 469 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 

3 Library Statistics 

Ge. Sa 6 ee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: $255$DUA 8: Syst 18311 .L32;1 18619 4 0 1000 0:02. 3 

: 7$25580 Age: CTR E OBJ) TBKLIB.L32;1 157 1 0 14 0:00. 

; 7$255$ SDUA TRACE, OBJ JSTRUCDEF at 1 32 0 0 7 0:00.1 

> 7$255$pUA28: CTRACE.OBJJTBKDST.L3 414 118 2 30 00:00.3 

3; Information: 4 

3; Warnings: 0 

3; Errors: 0 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: TBKSYM/OBJ=0BJ$: TBKSYM MSRC$: TBKSYM/UPDATE=(ENHS: TBKSYM) 
3; Size: 469 ode + 0 data bytes 

3; Run Time: 217.4 

3; Elapsed Time: 254.9 

3 Lines/CPU Min: 74 

3; Lexemes/CPU-Min: 2098 
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